home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / game / patch / space_hulkhd.lha / SpaceHulk / Install_SpaceHulk < prev    next >
Text File  |  1998-02-23  |  2KB  |  99 lines
  1. (set GameDir "SpaceHulk")
  2.  
  3. ;try to figure out a place where the user usually installs his games
  4. (if (exists "Games:" (noreq) )
  5.     (set @default-dest "Games:")
  6.     (if (exists "SYS:Games" (noreq) )
  7.         (set @default-dest "SYS:Games")
  8.         (if (exists "Work:Games" (noreq) )
  9.             (set @default-dest "Work:Games")
  10.             (if (exists "JEUX:" (noreq) )
  11.                (set @default-dest "JEUX:")
  12.                (set @default-dest "SYS:")
  13.             )
  14.         )
  15.     )
  16. )
  17.  
  18. ;ask the user to select a directory to install the game into
  19. (set default-dest
  20.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  21.                              "A drawer called " GameDir " will be created.")
  22.                      (help @askdir-help)
  23.                      (default @default-dest)
  24.                      (newpath)
  25.              )
  26.      GameDir
  27.      )
  28. )
  29. (set @default-dest default-dest)
  30. (set #datadest (tackon @default-dest "data"))
  31.  
  32. ;create the selected directory
  33. (makedir @default-dest
  34.          (infos)
  35. )
  36.  
  37. (makedir #datadest
  38. )
  39.  
  40. (copyfiles (source "spacehulkhd.readme")
  41.            (dest @default-dest)
  42.        (infos)
  43. )
  44.  
  45. (copyfiles (source "hulk.rof")
  46.            (dest #datadest)
  47.        (infos)
  48. )
  49.  
  50. (copyfiles (source "SpaceHulkHD")
  51.            (dest @default-dest)
  52.        (infos)
  53. )
  54.  
  55. (askdisk
  56.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 1 in any drive" @app-name))
  57.     (dest        "Hulk_1")
  58.     (help        "Insert disk 1 in any floppy drive\nor you'll wait for a while!")
  59. )
  60.  
  61.  
  62. (copyfiles (source "Hulk_1:")
  63.            (dest #datadest)
  64.        (all)
  65. )
  66.  
  67. (askdisk
  68.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 2 in any drive" @app-name))
  69.     (dest        "Hulk_2")
  70.     (help        "Insert disk 1 in any floppy drive\nor you'll wait for a while!")
  71. )
  72.  
  73. (copyfiles (source "Hulk_2:")
  74.            (dest #datadest)
  75.        (all)
  76. )
  77.  
  78. (askdisk
  79.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 3 in any drive" @app-name))
  80.     (dest        "Hulk_3")
  81.     (help        "Insert disk 3 in any floppy drive\nor you'll wait for a while!")
  82. )
  83.  
  84. (copyfiles (source "Hulk_3:")
  85.            (dest #datadest)
  86.        (all)
  87. )
  88.  
  89.  
  90. ; relocate the program
  91.  
  92. (if
  93.     (= 0 (run ("reloc %s %s.rel ADR=$0 >NIL:" (tackon #datadest "hulk") (tackon #datadest "hulk") )))
  94.     ("")
  95.     (abort "\"reloc\" must be in your PATH !")
  96. )
  97.  
  98.  
  99.